home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / windows / win31 / macsyma.arj / MACSDEMO.EXE / TRIG.OUT < prev    next >
Text File  |  1993-09-13  |  3KB  |  86 lines
  1.  
  2. (c1) /* Numerical Evaluation of Trigonometric Functions */
  3.  
  4. expr: sin(%pi/7)+tan(%pi/10);
  5. |$label(0,15,Times New Roman,$(d1$))sin$paren($q($greektext(p),7))$hinge()$in( - )$q($paren($sqrt(5)$in( - )5,$(,$))$in( )sin$paren($q($greektext(p),5)),5)
  6.  
  7. (c2) sfloat(expr);
  8. |$label(0,15,Times New Roman,$(d2$))0.7588
  9.  
  10. (c3) sin(1);
  11. |$label(0,15,Times New Roman,$(d3$))sin$paren(1)
  12.  
  13. (c4) sin(1),numer;
  14. |$label(0,15,Times New Roman,$(d4$))0.84147
  15.  
  16. (c5) sin(0.5b0), fpprec:50;
  17. |$label(0,15,Times New Roman,$(d5$))$num(4.794255386042030002732879352155713880818033679406b-1)
  18.  
  19. (c6) expr: cos(x)^2-sin(x)^2;
  20. |$label(0,15,Times New Roman,$(d6$))$sup(cos,2)$paren(x)$hinge()$in( - )$sup(sin,2)$paren(x)
  21.  
  22. (c7) expr, x=%pi/3;
  23. |$label(0,15,Times New Roman,$(d7$))$in( - )$q(1,2)
  24.  
  25. (c8) /* Simplification of Trigonometric Expressions 
  26.    (See also demo(poisson);.) */
  27.  
  28. expr: exponentialize(sin(x));
  29. |$label(0,15,Times New Roman,$(d8$))$in( - )$q($italictext(i)$in( )$paren($sup($e(),$italictext(i)$in( )x)$in( - )$sup($e(),$in( - )$italictext(i)$in( )x),$(,$)),2)
  30.  
  31. (c9) demoivre(expr);
  32. |$label(0,15,Times New Roman,$(d9$))sin$paren(x)
  33.  
  34. (c10) cos(x)^2-sin(x)^2, sin(x)^2=1-cos(x)^2;
  35. |$label(0,15,Times New Roman,$(d10$))2$in( )$sup(cos,2)$paren(x)$hinge()$in( - )1
  36.  
  37. (c11) expr: sin(x+2*y+3*%pi/2);
  38. |$label(0,15,Times New Roman,$(d11$))$in( - )cos$paren(2$in( )y$in( + )x)
  39.  
  40. (c12) expr: trigexpand(expr);
  41. |$label(0,15,Times New Roman,$(d12$))sin$paren(x)$in( )sin$paren(2$in( )y)$hinge()$in( - )cos$paren(x)$in( )cos$paren(2$in( )y)
  42.  
  43. (c13) expr: trigreduce(expr);
  44. |$label(0,15,Times New Roman,$(d13$))$in( - )cos$paren(2$in( )y$in( + )x)
  45.  
  46. (c14) expr: sec(x)^2*tan(x)+(1-sin(x)^2)/cos(x);
  47. |$label(0,15,Times New Roman,$(d14$))$sup(sec,2)$paren(x)$in( )tan$paren(x)$hinge()$in( + )$q(1$in( - )$sup(sin,2)$paren(x),cos$paren(x))
  48.  
  49. (c15) expr: trigsimp(expr);
  50. C:\MACSD2B\share\trigsimp.fas being loaded.
  51. |$label(0,15,Times New Roman,$(d15$))$q(sin$paren(x)$in( + )$sup(cos,4)$paren(x),$sup(cos,3)$paren(x))
  52.  
  53. (c16) poissimp(num(expr))/denom(expr);
  54. |$label(0,15,Times New Roman,$(d16$))$q($q(cos$paren(4$in( )x),8)$in( + )$q(cos$paren(2$in( )x),2)$in( + )sin$paren(x)$in( + )$q(3,8),$sup(cos,3)$paren(x))
  55.  
  56. (c17) /* Calculus Operations on Trigonometric Expressions */
  57.  
  58. diff(atanh(sqrt(x)),x);
  59. |$label(0,15,Times New Roman,$(d17$))$q(1,2$in( )$paren(1$in( - )x,$(,$))$in( )$sqrt(x))
  60.  
  61. (c18) taylor(sin(x)/x,x,0,4);
  62. |$label(0,15,Times New Roman,$(d18$) /T/ )1$hinge()$in( - )$q($sup(x,2),6)$hinge()$in( + )$q($sup(x,4),120)$in( + ). . .
  63.  
  64. (c19) integrate(sin(x)^3*cos(x)^3,x);
  65. |$label(0,15,Times New Roman,$(d19$))$in( - )$q(2$in( )$sup(sin,6)$paren(x)$in( - )3$in( )$sup(sin,4)$paren(x),12)
  66.  
  67. (c20) laplace(exp(-b*t)*sin(w*t),t,s);
  68. |$label(0,15,Times New Roman,$(d20$))$q(w,$sup(w,2)$in( + )$sup(s,2)$in( + )2$in( )b$in( )s$in( + )$sup(b,2))
  69.  
  70. (c21) /* Special angle simplification */
  71.  
  72. tan(%pi/10), %piargs:all;
  73. |$label(0,15,Times New Roman,$(d21$))$q($sqrt(2)$in( )$paren(3$in( - )$sqrt(5),$(,$))$in( )$sqrt(5)$in( )$sqrt($sqrt(5)$in( + )5),20)
  74.  
  75. (c22) cos(3*%pi/10), %piargs:all;
  76. |$label(0,15,Times New Roman,$(d22$))$q($paren($sqrt(5)$in( - )1,$(,$))$in( )$sqrt($sqrt(5)$in( + )5),4$in( )$sqrt(2))
  77.  
  78. (c23) sin(%pi/4);
  79. |$label(0,15,Times New Roman,$(d23$))$q(1,$sqrt(2))
  80.  
  81. (c24) tan(%pi/6);
  82. |$label(0,15,Times New Roman,$(d24$))$q($sqrt(3),3)
  83.  
  84. (c25) /* Clean Up */
  85. remvalue(expr)$
  86.